home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb4.arc / GETKEYS.LIB < prev    next >
Text File  |  1984-12-02  |  755b  |  23 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.      The procedure GetKeys waits for a key to be pressed.  If the key
  6.      was an ordinary one, its value is returned in "choice" and chr(0)
  7.      in "EscChoice".  If the key was a "special" key, chr(27) (= ESC) is
  8.      returned in "choice" and a code in EscChoice.
  9.         The file KEYCHART.DAT gives the codes for the "special" keys.
  10. }
  11. procedure GetKeys(var choice, EscChoice:char);
  12.  
  13. begin
  14.  
  15.   EscChoice := chr(0);
  16.  
  17.   repeat until Keypressed;
  18.  
  19.   read(Kbd,Choice);
  20.  
  21.   if keypressed then read(Kbd,EscChoice);
  22.  
  23. end;